module Main where

import Data.Time.Clock  
import qualified HLibcell (someFunc)

import qualified HLibcell.Libcell as HLL 
fibs :: [Double]
fibs = 0 : 1 : zipWith (+) fibs (tail fibs)


difftimetofloat::DiffTime->Float
difftimetofloat a= realToFrac a 
-- f n = fibs !! n
main :: IO ()
main = do
  putStrLn "Please enter a number to compute its Fibonacci value:"
  input <- getLine
  -- let n = read input :: Int -- 将输入转换为整数
  
  time1<- return.difftimetofloat.utctDayTime.addUTCTime (60*60*8)=<<getCurrentTime
  putStrLn $ show time1
  putStrLn $ show $ fibs !! 30
  time1<- return.difftimetofloat.utctDayTime.addUTCTime (60*60*8)=<<getCurrentTime
  putStrLn $ show time1

  HLL.test 
  putStrLn "Hello, Haskell!"
  HLibcell.someFunc
